0 CLS:REPEAT:GETR$:IFR$="|"THENCSAVE"*",A#BBA8,E#BFDFESLEIFR$="@"THENCLOAD"*"